home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / xlib / xevent.t < prev    next >
Text File  |  1990-06-01  |  50KB  |  959 lines
  1. (herald xevent (env tsys (xlib interface)))
  2. (DEFINE (MAKE-XEVENT) (CONS 'XEVENTP (MAKE-BYTEV 96)))
  3. (DEFINE (XEVENT-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  4. (DEFINE (XEVENT-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  5. (DEFINE (XEVENT-XANY-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  6. (DEFINE (XEVENT-XANY-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  7. (DEFINE (XEVENT-XANY-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
  8. (DEFINE (XEVENT-XANY-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
  9. (DEFINE (XEVENT-XANY-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
  10. (DEFINE (XEVENT-XANY-SEND_EVENT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  11. (DEFINE (XEVENT-XANY-DISPLAY X)
  12.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  13.          (CHK-XEVENTP X)
  14.          12))
  15. (DEFINE (XEVENT-XANY-DISPLAY! X Y)
  16.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  17.          (CHK-XEVENTP X)
  18.          12
  19.          Y))
  20. (DEFINE (XEVENT-XANY-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 16))
  21. (DEFINE (XEVENT-XANY-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
  22. (DEFINE (XEVENT-XKEY-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  23. (DEFINE (XEVENT-XKEY-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  24. (DEFINE (XEVENT-XKEY-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
  25. (DEFINE (XEVENT-XKEY-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
  26. (DEFINE (XEVENT-XKEY-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
  27. (DEFINE (XEVENT-XKEY-SEND_EVENT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  28. (DEFINE (XEVENT-XKEY-DISPLAY X)
  29.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  30.          (CHK-XEVENTP X)
  31.          12))
  32. (DEFINE (XEVENT-XKEY-DISPLAY! X Y)
  33.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  34.          (CHK-XEVENTP X)
  35.          12
  36.          Y))
  37. (DEFINE (XEVENT-XKEY-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 16))
  38. (DEFINE (XEVENT-XKEY-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
  39. (DEFINE (XEVENT-XKEY-ROOT X) (MREF-INTEGER (CHK-XEVENTP X) 20))
  40. (DEFINE (XEVENT-XKEY-ROOT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
  41. (DEFINE (XEVENT-XKEY-SUBWINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 24))
  42. (DEFINE (XEVENT-XKEY-SUBWINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
  43. (DEFINE (XEVENT-XKEY-TIME X) (MREF-INTEGER (CHK-XEVENTP X) 28))
  44. (DEFINE (XEVENT-XKEY-TIME! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
  45. (DEFINE (XEVENT-XKEY-X X) (MREF-INTEGER (CHK-XEVENTP X) 32))
  46. (DEFINE (XEVENT-XKEY-X! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 32 Y))
  47. (DEFINE (XEVENT-XKEY-Y X) (MREF-INTEGER (CHK-XEVENTP X) 36))
  48. (DEFINE (XEVENT-XKEY-Y! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 36 Y))
  49. (DEFINE (XEVENT-XKEY-X_ROOT X) (MREF-INTEGER (CHK-XEVENTP X) 40))
  50. (DEFINE (XEVENT-XKEY-X_ROOT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 40 Y))
  51. (DEFINE (XEVENT-XKEY-Y_ROOT X) (MREF-INTEGER (CHK-XEVENTP X) 44))
  52. (DEFINE (XEVENT-XKEY-Y_ROOT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 44 Y))
  53. (DEFINE (XEVENT-XKEY-STATE X) (MREF-INTEGER (CHK-XEVENTP X) 48))
  54. (DEFINE (XEVENT-XKEY-STATE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 48 Y))
  55. (DEFINE (XEVENT-XKEY-KEYCODE X) (MREF-INTEGER (CHK-XEVENTP X) 52))
  56. (DEFINE (XEVENT-XKEY-KEYCODE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 52 Y))
  57. (DEFINE (XEVENT-XKEY-SAME_SCREEN X) (MREF-INTEGER (CHK-XEVENTP X) 56))
  58. (DEFINE (XEVENT-XKEY-SAME_SCREEN! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 56 Y))
  59. (DEFINE (XEVENT-XBUTTON-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  60. (DEFINE (XEVENT-XBUTTON-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  61. (DEFINE (XEVENT-XBUTTON-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
  62. (DEFINE (XEVENT-XBUTTON-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
  63. (DEFINE (XEVENT-XBUTTON-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
  64. (DEFINE (XEVENT-XBUTTON-SEND_EVENT! X Y)
  65.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  66. (DEFINE (XEVENT-XBUTTON-DISPLAY X)
  67.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  68.          (CHK-XEVENTP X)
  69.          12))
  70. (DEFINE (XEVENT-XBUTTON-DISPLAY! X Y)
  71.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  72.          (CHK-XEVENTP X)
  73.          12
  74.          Y))
  75. (DEFINE (XEVENT-XBUTTON-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 16))
  76. (DEFINE (XEVENT-XBUTTON-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
  77. (DEFINE (XEVENT-XBUTTON-ROOT X) (MREF-INTEGER (CHK-XEVENTP X) 20))
  78. (DEFINE (XEVENT-XBUTTON-ROOT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
  79. (DEFINE (XEVENT-XBUTTON-SUBWINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 24))
  80. (DEFINE (XEVENT-XBUTTON-SUBWINDOW! X Y)
  81.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
  82. (DEFINE (XEVENT-XBUTTON-TIME X) (MREF-INTEGER (CHK-XEVENTP X) 28))
  83. (DEFINE (XEVENT-XBUTTON-TIME! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
  84. (DEFINE (XEVENT-XBUTTON-X X) (MREF-INTEGER (CHK-XEVENTP X) 32))
  85. (DEFINE (XEVENT-XBUTTON-X! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 32 Y))
  86. (DEFINE (XEVENT-XBUTTON-Y X) (MREF-INTEGER (CHK-XEVENTP X) 36))
  87. (DEFINE (XEVENT-XBUTTON-Y! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 36 Y))
  88. (DEFINE (XEVENT-XBUTTON-X_ROOT X) (MREF-INTEGER (CHK-XEVENTP X) 40))
  89. (DEFINE (XEVENT-XBUTTON-X_ROOT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 40 Y))
  90. (DEFINE (XEVENT-XBUTTON-Y_ROOT X) (MREF-INTEGER (CHK-XEVENTP X) 44))
  91. (DEFINE (XEVENT-XBUTTON-Y_ROOT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 44 Y))
  92. (DEFINE (XEVENT-XBUTTON-STATE X) (MREF-INTEGER (CHK-XEVENTP X) 48))
  93. (DEFINE (XEVENT-XBUTTON-STATE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 48 Y))
  94. (DEFINE (XEVENT-XBUTTON-BUTTON X) (MREF-INTEGER (CHK-XEVENTP X) 52))
  95. (DEFINE (XEVENT-XBUTTON-BUTTON! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 52 Y))
  96. (DEFINE (XEVENT-XBUTTON-SAME_SCREEN X) (MREF-INTEGER (CHK-XEVENTP X) 56))
  97. (DEFINE (XEVENT-XBUTTON-SAME_SCREEN! X Y)
  98.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 56 Y))
  99. (DEFINE (XEVENT-XMOTION-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  100. (DEFINE (XEVENT-XMOTION-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  101. (DEFINE (XEVENT-XMOTION-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
  102. (DEFINE (XEVENT-XMOTION-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
  103. (DEFINE (XEVENT-XMOTION-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
  104. (DEFINE (XEVENT-XMOTION-SEND_EVENT! X Y)
  105.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  106. (DEFINE (XEVENT-XMOTION-DISPLAY X)
  107.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  108.          (CHK-XEVENTP X)
  109.          12))
  110. (DEFINE (XEVENT-XMOTION-DISPLAY! X Y)
  111.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  112.          (CHK-XEVENTP X)
  113.          12
  114.          Y))
  115. (DEFINE (XEVENT-XMOTION-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 16))
  116. (DEFINE (XEVENT-XMOTION-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
  117. (DEFINE (XEVENT-XMOTION-ROOT X) (MREF-INTEGER (CHK-XEVENTP X) 20))
  118. (DEFINE (XEVENT-XMOTION-ROOT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
  119. (DEFINE (XEVENT-XMOTION-SUBWINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 24))
  120. (DEFINE (XEVENT-XMOTION-SUBWINDOW! X Y)
  121.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
  122. (DEFINE (XEVENT-XMOTION-TIME X) (MREF-INTEGER (CHK-XEVENTP X) 28))
  123. (DEFINE (XEVENT-XMOTION-TIME! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
  124. (DEFINE (XEVENT-XMOTION-X X) (MREF-INTEGER (CHK-XEVENTP X) 32))
  125. (DEFINE (XEVENT-XMOTION-X! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 32 Y))
  126. (DEFINE (XEVENT-XMOTION-Y X) (MREF-INTEGER (CHK-XEVENTP X) 36))
  127. (DEFINE (XEVENT-XMOTION-Y! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 36 Y))
  128. (DEFINE (XEVENT-XMOTION-X_ROOT X) (MREF-INTEGER (CHK-XEVENTP X) 40))
  129. (DEFINE (XEVENT-XMOTION-X_ROOT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 40 Y))
  130. (DEFINE (XEVENT-XMOTION-Y_ROOT X) (MREF-INTEGER (CHK-XEVENTP X) 44))
  131. (DEFINE (XEVENT-XMOTION-Y_ROOT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 44 Y))
  132. (DEFINE (XEVENT-XMOTION-STATE X) (MREF-INTEGER (CHK-XEVENTP X) 48))
  133. (DEFINE (XEVENT-XMOTION-STATE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 48 Y))
  134. (DEFINE (XEVENT-XMOTION-IS_HINT X) (MREF-8-U (CHK-XEVENTP X) 52))
  135. (DEFINE (XEVENT-XMOTION-IS_HINT! X Y) (SET-MREF-8-U! (CHK-XEVENTP X) 52 Y))
  136. (DEFINE (XEVENT-XMOTION-SAME_SCREEN X) (MREF-INTEGER (CHK-XEVENTP X) 53))
  137. (DEFINE (XEVENT-XMOTION-SAME_SCREEN! X Y)
  138.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 53 Y))
  139. (DEFINE (XEVENT-XCROSSING-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  140. (DEFINE (XEVENT-XCROSSING-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  141. (DEFINE (XEVENT-XCROSSING-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
  142. (DEFINE (XEVENT-XCROSSING-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
  143. (DEFINE (XEVENT-XCROSSING-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
  144. (DEFINE (XEVENT-XCROSSING-SEND_EVENT! X Y)
  145.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  146. (DEFINE (XEVENT-XCROSSING-DISPLAY X)
  147.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  148.          (CHK-XEVENTP X)
  149.          12))
  150. (DEFINE (XEVENT-XCROSSING-DISPLAY! X Y)
  151.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  152.          (CHK-XEVENTP X)
  153.          12
  154.          Y))
  155. (DEFINE (XEVENT-XCROSSING-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 16))
  156. (DEFINE (XEVENT-XCROSSING-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
  157. (DEFINE (XEVENT-XCROSSING-ROOT X) (MREF-INTEGER (CHK-XEVENTP X) 20))
  158. (DEFINE (XEVENT-XCROSSING-ROOT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
  159. (DEFINE (XEVENT-XCROSSING-SUBWINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 24))
  160. (DEFINE (XEVENT-XCROSSING-SUBWINDOW! X Y)
  161.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
  162. (DEFINE (XEVENT-XCROSSING-TIME X) (MREF-INTEGER (CHK-XEVENTP X) 28))
  163. (DEFINE (XEVENT-XCROSSING-TIME! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
  164. (DEFINE (XEVENT-XCROSSING-X X) (MREF-INTEGER (CHK-XEVENTP X) 32))
  165. (DEFINE (XEVENT-XCROSSING-X! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 32 Y))
  166. (DEFINE (XEVENT-XCROSSING-Y X) (MREF-INTEGER (CHK-XEVENTP X) 36))
  167. (DEFINE (XEVENT-XCROSSING-Y! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 36 Y))
  168. (DEFINE (XEVENT-XCROSSING-X_ROOT X) (MREF-INTEGER (CHK-XEVENTP X) 40))
  169. (DEFINE (XEVENT-XCROSSING-X_ROOT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 40 Y))
  170. (DEFINE (XEVENT-XCROSSING-Y_ROOT X) (MREF-INTEGER (CHK-XEVENTP X) 44))
  171. (DEFINE (XEVENT-XCROSSING-Y_ROOT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 44 Y))
  172. (DEFINE (XEVENT-XCROSSING-MODE X) (MREF-INTEGER (CHK-XEVENTP X) 48))
  173. (DEFINE (XEVENT-XCROSSING-MODE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 48 Y))
  174. (DEFINE (XEVENT-XCROSSING-DETAIL X) (MREF-INTEGER (CHK-XEVENTP X) 52))
  175. (DEFINE (XEVENT-XCROSSING-DETAIL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 52 Y))
  176. (DEFINE (XEVENT-XCROSSING-SAME_SCREEN X) (MREF-INTEGER (CHK-XEVENTP X) 56))
  177. (DEFINE (XEVENT-XCROSSING-SAME_SCREEN! X Y)
  178.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 56 Y))
  179. (DEFINE (XEVENT-XCROSSING-FOCUS X) (MREF-INTEGER (CHK-XEVENTP X) 60))
  180. (DEFINE (XEVENT-XCROSSING-FOCUS! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 60 Y))
  181. (DEFINE (XEVENT-XCROSSING-STATE X) (MREF-INTEGER (CHK-XEVENTP X) 64))
  182. (DEFINE (XEVENT-XCROSSING-STATE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 64 Y))
  183. (DEFINE (XEVENT-XFOCUS-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  184. (DEFINE (XEVENT-XFOCUS-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  185. (DEFINE (XEVENT-XFOCUS-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
  186. (DEFINE (XEVENT-XFOCUS-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
  187. (DEFINE (XEVENT-XFOCUS-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
  188. (DEFINE (XEVENT-XFOCUS-SEND_EVENT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  189. (DEFINE (XEVENT-XFOCUS-DISPLAY X)
  190.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  191.          (CHK-XEVENTP X)
  192.          12))
  193. (DEFINE (XEVENT-XFOCUS-DISPLAY! X Y)
  194.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  195.          (CHK-XEVENTP X)
  196.          12
  197.          Y))
  198. (DEFINE (XEVENT-XFOCUS-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 16))
  199. (DEFINE (XEVENT-XFOCUS-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
  200. (DEFINE (XEVENT-XFOCUS-MODE X) (MREF-INTEGER (CHK-XEVENTP X) 20))
  201. (DEFINE (XEVENT-XFOCUS-MODE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
  202. (DEFINE (XEVENT-XFOCUS-DETAIL X) (MREF-INTEGER (CHK-XEVENTP X) 24))
  203. (DEFINE (XEVENT-XFOCUS-DETAIL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
  204. (DEFINE (XEVENT-XEXPOSE-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  205. (DEFINE (XEVENT-XEXPOSE-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  206. (DEFINE (XEVENT-XEXPOSE-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
  207. (DEFINE (XEVENT-XEXPOSE-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
  208. (DEFINE (XEVENT-XEXPOSE-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
  209. (DEFINE (XEVENT-XEXPOSE-SEND_EVENT! X Y)
  210.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  211. (DEFINE (XEVENT-XEXPOSE-DISPLAY X)
  212.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  213.          (CHK-XEVENTP X)
  214.          12))
  215. (DEFINE (XEVENT-XEXPOSE-DISPLAY! X Y)
  216.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  217.          (CHK-XEVENTP X)
  218.          12
  219.          Y))
  220. (DEFINE (XEVENT-XEXPOSE-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 16))
  221. (DEFINE (XEVENT-XEXPOSE-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
  222. (DEFINE (XEVENT-XEXPOSE-X X) (MREF-INTEGER (CHK-XEVENTP X) 20))
  223. (DEFINE (XEVENT-XEXPOSE-X! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
  224. (DEFINE (XEVENT-XEXPOSE-Y X) (MREF-INTEGER (CHK-XEVENTP X) 24))
  225. (DEFINE (XEVENT-XEXPOSE-Y! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
  226. (DEFINE (XEVENT-XEXPOSE-WIDTH X) (MREF-INTEGER (CHK-XEVENTP X) 28))
  227. (DEFINE (XEVENT-XEXPOSE-WIDTH! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
  228. (DEFINE (XEVENT-XEXPOSE-HEIGHT X) (MREF-INTEGER (CHK-XEVENTP X) 32))
  229. (DEFINE (XEVENT-XEXPOSE-HEIGHT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 32 Y))
  230. (DEFINE (XEVENT-XEXPOSE-COUNT X) (MREF-INTEGER (CHK-XEVENTP X) 36))
  231. (DEFINE (XEVENT-XEXPOSE-COUNT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 36 Y))
  232. (DEFINE (XEVENT-XGRAPHICSEXPOSE-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  233. (DEFINE (XEVENT-XGRAPHICSEXPOSE-TYPE! X Y)
  234.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  235. (DEFINE (XEVENT-XGRAPHICSEXPOSE-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
  236. (DEFINE (XEVENT-XGRAPHICSEXPOSE-SERIAL! X Y)
  237.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
  238. (DEFINE (XEVENT-XGRAPHICSEXPOSE-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
  239. (DEFINE (XEVENT-XGRAPHICSEXPOSE-SEND_EVENT! X Y)
  240.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  241. (DEFINE (XEVENT-XGRAPHICSEXPOSE-DISPLAY X)
  242.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  243.          (CHK-XEVENTP X)
  244.          12))
  245. (DEFINE (XEVENT-XGRAPHICSEXPOSE-DISPLAY! X Y)
  246.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  247.          (CHK-XEVENTP X)
  248.          12
  249.          Y))
  250. (DEFINE (XEVENT-XGRAPHICSEXPOSE-DRAWABLE X) (MREF-INTEGER (CHK-XEVENTP X) 16))
  251. (DEFINE (XEVENT-XGRAPHICSEXPOSE-DRAWABLE! X Y)
  252.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
  253. (DEFINE (XEVENT-XGRAPHICSEXPOSE-X X) (MREF-INTEGER (CHK-XEVENTP X) 20))
  254. (DEFINE (XEVENT-XGRAPHICSEXPOSE-X! X Y)
  255.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
  256. (DEFINE (XEVENT-XGRAPHICSEXPOSE-Y X) (MREF-INTEGER (CHK-XEVENTP X) 24))
  257. (DEFINE (XEVENT-XGRAPHICSEXPOSE-Y! X Y)
  258.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
  259. (DEFINE (XEVENT-XGRAPHICSEXPOSE-WIDTH X) (MREF-INTEGER (CHK-XEVENTP X) 28))
  260. (DEFINE (XEVENT-XGRAPHICSEXPOSE-WIDTH! X Y)
  261.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
  262. (DEFINE (XEVENT-XGRAPHICSEXPOSE-HEIGHT X) (MREF-INTEGER (CHK-XEVENTP X) 32))
  263. (DEFINE (XEVENT-XGRAPHICSEXPOSE-HEIGHT! X Y)
  264.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 32 Y))
  265. (DEFINE (XEVENT-XGRAPHICSEXPOSE-COUNT X) (MREF-INTEGER (CHK-XEVENTP X) 36))
  266. (DEFINE (XEVENT-XGRAPHICSEXPOSE-COUNT! X Y)
  267.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 36 Y))
  268. (DEFINE (XEVENT-XGRAPHICSEXPOSE-MAJOR_CODE X) (MREF-INTEGER (CHK-XEVENTP X) 40))
  269. (DEFINE (XEVENT-XGRAPHICSEXPOSE-MAJOR_CODE! X Y)
  270.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 40 Y))
  271. (DEFINE (XEVENT-XGRAPHICSEXPOSE-MINOR_CODE X) (MREF-INTEGER (CHK-XEVENTP X) 44))
  272. (DEFINE (XEVENT-XGRAPHICSEXPOSE-MINOR_CODE! X Y)
  273.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 44 Y))
  274. (DEFINE (XEVENT-XNOEXPOSE-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  275. (DEFINE (XEVENT-XNOEXPOSE-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  276. (DEFINE (XEVENT-XNOEXPOSE-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
  277. (DEFINE (XEVENT-XNOEXPOSE-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
  278. (DEFINE (XEVENT-XNOEXPOSE-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
  279. (DEFINE (XEVENT-XNOEXPOSE-SEND_EVENT! X Y)
  280.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  281. (DEFINE (XEVENT-XNOEXPOSE-DISPLAY X)
  282.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  283.          (CHK-XEVENTP X)
  284.          12))
  285. (DEFINE (XEVENT-XNOEXPOSE-DISPLAY! X Y)
  286.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  287.          (CHK-XEVENTP X)
  288.          12
  289.          Y))
  290. (DEFINE (XEVENT-XNOEXPOSE-DRAWABLE X) (MREF-INTEGER (CHK-XEVENTP X) 16))
  291. (DEFINE (XEVENT-XNOEXPOSE-DRAWABLE! X Y)
  292.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
  293. (DEFINE (XEVENT-XNOEXPOSE-MAJOR_CODE X) (MREF-INTEGER (CHK-XEVENTP X) 20))
  294. (DEFINE (XEVENT-XNOEXPOSE-MAJOR_CODE! X Y)
  295.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
  296. (DEFINE (XEVENT-XNOEXPOSE-MINOR_CODE X) (MREF-INTEGER (CHK-XEVENTP X) 24))
  297. (DEFINE (XEVENT-XNOEXPOSE-MINOR_CODE! X Y)
  298.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
  299. (DEFINE (XEVENT-XVISIBILITY-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  300. (DEFINE (XEVENT-XVISIBILITY-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  301. (DEFINE (XEVENT-XVISIBILITY-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
  302. (DEFINE (XEVENT-XVISIBILITY-SERIAL! X Y)
  303.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
  304. (DEFINE (XEVENT-XVISIBILITY-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
  305. (DEFINE (XEVENT-XVISIBILITY-SEND_EVENT! X Y)
  306.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  307. (DEFINE (XEVENT-XVISIBILITY-DISPLAY X)
  308.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  309.          (CHK-XEVENTP X)
  310.          12))
  311. (DEFINE (XEVENT-XVISIBILITY-DISPLAY! X Y)
  312.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  313.          (CHK-XEVENTP X)
  314.          12
  315.          Y))
  316. (DEFINE (XEVENT-XVISIBILITY-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 16))
  317. (DEFINE (XEVENT-XVISIBILITY-WINDOW! X Y)
  318.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
  319. (DEFINE (XEVENT-XVISIBILITY-STATE X) (MREF-INTEGER (CHK-XEVENTP X) 20))
  320. (DEFINE (XEVENT-XVISIBILITY-STATE! X Y)
  321.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
  322. (DEFINE (XEVENT-XCREATEWINDOW-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  323. (DEFINE (XEVENT-XCREATEWINDOW-TYPE! X Y)
  324.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  325. (DEFINE (XEVENT-XCREATEWINDOW-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
  326. (DEFINE (XEVENT-XCREATEWINDOW-SERIAL! X Y)
  327.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
  328. (DEFINE (XEVENT-XCREATEWINDOW-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
  329. (DEFINE (XEVENT-XCREATEWINDOW-SEND_EVENT! X Y)
  330.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  331. (DEFINE (XEVENT-XCREATEWINDOW-DISPLAY X)
  332.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  333.          (CHK-XEVENTP X)
  334.          12))
  335. (DEFINE (XEVENT-XCREATEWINDOW-DISPLAY! X Y)
  336.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  337.          (CHK-XEVENTP X)
  338.          12
  339.          Y))
  340. (DEFINE (XEVENT-XCREATEWINDOW-PARENT X) (MREF-INTEGER (CHK-XEVENTP X) 16))
  341. (DEFINE (XEVENT-XCREATEWINDOW-PARENT! X Y)
  342.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
  343. (DEFINE (XEVENT-XCREATEWINDOW-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 20))
  344. (DEFINE (XEVENT-XCREATEWINDOW-WINDOW! X Y)
  345.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
  346. (DEFINE (XEVENT-XCREATEWINDOW-X X) (MREF-INTEGER (CHK-XEVENTP X) 24))
  347. (DEFINE (XEVENT-XCREATEWINDOW-X! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
  348. (DEFINE (XEVENT-XCREATEWINDOW-Y X) (MREF-INTEGER (CHK-XEVENTP X) 28))
  349. (DEFINE (XEVENT-XCREATEWINDOW-Y! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
  350. (DEFINE (XEVENT-XCREATEWINDOW-WIDTH X) (MREF-INTEGER (CHK-XEVENTP X) 32))
  351. (DEFINE (XEVENT-XCREATEWINDOW-WIDTH! X Y)
  352.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 32 Y))
  353. (DEFINE (XEVENT-XCREATEWINDOW-HEIGHT X) (MREF-INTEGER (CHK-XEVENTP X) 36))
  354. (DEFINE (XEVENT-XCREATEWINDOW-HEIGHT! X Y)
  355.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 36 Y))
  356. (DEFINE (XEVENT-XCREATEWINDOW-BORDER_WIDTH X) (MREF-INTEGER (CHK-XEVENTP X) 40))
  357. (DEFINE (XEVENT-XCREATEWINDOW-BORDER_WIDTH! X Y)
  358.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 40 Y))
  359. (DEFINE (XEVENT-XCREATEWINDOW-OVERRIDE_REDIRECT X)
  360.         (MREF-INTEGER (CHK-XEVENTP X) 44))
  361. (DEFINE (XEVENT-XCREATEWINDOW-OVERRIDE_REDIRECT! X Y)
  362.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 44 Y))
  363. (DEFINE (XEVENT-XDESTROYWINDOW-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  364. (DEFINE (XEVENT-XDESTROYWINDOW-TYPE! X Y)
  365.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  366. (DEFINE (XEVENT-XDESTROYWINDOW-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
  367. (DEFINE (XEVENT-XDESTROYWINDOW-SERIAL! X Y)
  368.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
  369. (DEFINE (XEVENT-XDESTROYWINDOW-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
  370. (DEFINE (XEVENT-XDESTROYWINDOW-SEND_EVENT! X Y)
  371.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  372. (DEFINE (XEVENT-XDESTROYWINDOW-DISPLAY X)
  373.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  374.          (CHK-XEVENTP X)
  375.          12))
  376. (DEFINE (XEVENT-XDESTROYWINDOW-DISPLAY! X Y)
  377.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  378.          (CHK-XEVENTP X)
  379.          12
  380.          Y))
  381. (DEFINE (XEVENT-XDESTROYWINDOW-EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 16))
  382. (DEFINE (XEVENT-XDESTROYWINDOW-EVENT! X Y)
  383.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
  384. (DEFINE (XEVENT-XDESTROYWINDOW-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 20))
  385. (DEFINE (XEVENT-XDESTROYWINDOW-WINDOW! X Y)
  386.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
  387. (DEFINE (XEVENT-XUNMAP-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  388. (DEFINE (XEVENT-XUNMAP-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  389. (DEFINE (XEVENT-XUNMAP-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
  390. (DEFINE (XEVENT-XUNMAP-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
  391. (DEFINE (XEVENT-XUNMAP-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
  392. (DEFINE (XEVENT-XUNMAP-SEND_EVENT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  393. (DEFINE (XEVENT-XUNMAP-DISPLAY X)
  394.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  395.          (CHK-XEVENTP X)
  396.          12))
  397. (DEFINE (XEVENT-XUNMAP-DISPLAY! X Y)
  398.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  399.          (CHK-XEVENTP X)
  400.          12
  401.          Y))
  402. (DEFINE (XEVENT-XUNMAP-EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 16))
  403. (DEFINE (XEVENT-XUNMAP-EVENT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
  404. (DEFINE (XEVENT-XUNMAP-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 20))
  405. (DEFINE (XEVENT-XUNMAP-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
  406. (DEFINE (XEVENT-XUNMAP-FROM_CONFIGURE X) (MREF-INTEGER (CHK-XEVENTP X) 24))
  407. (DEFINE (XEVENT-XUNMAP-FROM_CONFIGURE! X Y)
  408.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
  409. (DEFINE (XEVENT-XMAP-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  410. (DEFINE (XEVENT-XMAP-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  411. (DEFINE (XEVENT-XMAP-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
  412. (DEFINE (XEVENT-XMAP-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
  413. (DEFINE (XEVENT-XMAP-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
  414. (DEFINE (XEVENT-XMAP-SEND_EVENT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  415. (DEFINE (XEVENT-XMAP-DISPLAY X)
  416.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  417.          (CHK-XEVENTP X)
  418.          12))
  419. (DEFINE (XEVENT-XMAP-DISPLAY! X Y)
  420.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  421.          (CHK-XEVENTP X)
  422.          12
  423.          Y))
  424. (DEFINE (XEVENT-XMAP-EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 16))
  425. (DEFINE (XEVENT-XMAP-EVENT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
  426. (DEFINE (XEVENT-XMAP-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 20))
  427. (DEFINE (XEVENT-XMAP-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
  428. (DEFINE (XEVENT-XMAP-OVERRIDE_REDIRECT X) (MREF-INTEGER (CHK-XEVENTP X) 24))
  429. (DEFINE (XEVENT-XMAP-OVERRIDE_REDIRECT! X Y)
  430.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
  431. (DEFINE (XEVENT-XMAPREQUEST-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  432. (DEFINE (XEVENT-XMAPREQUEST-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  433. (DEFINE (XEVENT-XMAPREQUEST-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
  434. (DEFINE (XEVENT-XMAPREQUEST-SERIAL! X Y)
  435.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
  436. (DEFINE (XEVENT-XMAPREQUEST-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
  437. (DEFINE (XEVENT-XMAPREQUEST-SEND_EVENT! X Y)
  438.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  439. (DEFINE (XEVENT-XMAPREQUEST-DISPLAY X)
  440.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  441.          (CHK-XEVENTP X)
  442.          12))
  443. (DEFINE (XEVENT-XMAPREQUEST-DISPLAY! X Y)
  444.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  445.          (CHK-XEVENTP X)
  446.          12
  447.          Y))
  448. (DEFINE (XEVENT-XMAPREQUEST-PARENT X) (MREF-INTEGER (CHK-XEVENTP X) 16))
  449. (DEFINE (XEVENT-XMAPREQUEST-PARENT! X Y)
  450.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
  451. (DEFINE (XEVENT-XMAPREQUEST-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 20))
  452. (DEFINE (XEVENT-XMAPREQUEST-WINDOW! X Y)
  453.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
  454. (DEFINE (XEVENT-XREPARENT-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  455. (DEFINE (XEVENT-XREPARENT-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  456. (DEFINE (XEVENT-XREPARENT-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
  457. (DEFINE (XEVENT-XREPARENT-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
  458. (DEFINE (XEVENT-XREPARENT-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
  459. (DEFINE (XEVENT-XREPARENT-SEND_EVENT! X Y)
  460.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  461. (DEFINE (XEVENT-XREPARENT-DISPLAY X)
  462.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  463.          (CHK-XEVENTP X)
  464.          12))
  465. (DEFINE (XEVENT-XREPARENT-DISPLAY! X Y)
  466.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  467.          (CHK-XEVENTP X)
  468.          12
  469.          Y))
  470. (DEFINE (XEVENT-XREPARENT-EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 16))
  471. (DEFINE (XEVENT-XREPARENT-EVENT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
  472. (DEFINE (XEVENT-XREPARENT-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 20))
  473. (DEFINE (XEVENT-XREPARENT-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
  474. (DEFINE (XEVENT-XREPARENT-PARENT X) (MREF-INTEGER (CHK-XEVENTP X) 24))
  475. (DEFINE (XEVENT-XREPARENT-PARENT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
  476. (DEFINE (XEVENT-XREPARENT-X X) (MREF-INTEGER (CHK-XEVENTP X) 28))
  477. (DEFINE (XEVENT-XREPARENT-X! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
  478. (DEFINE (XEVENT-XREPARENT-Y X) (MREF-INTEGER (CHK-XEVENTP X) 32))
  479. (DEFINE (XEVENT-XREPARENT-Y! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 32 Y))
  480. (DEFINE (XEVENT-XREPARENT-OVERRIDE_REDIRECT X)
  481.         (MREF-INTEGER (CHK-XEVENTP X) 36))
  482. (DEFINE (XEVENT-XREPARENT-OVERRIDE_REDIRECT! X Y)
  483.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 36 Y))
  484. (DEFINE (XEVENT-XCONFIGURE-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  485. (DEFINE (XEVENT-XCONFIGURE-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  486. (DEFINE (XEVENT-XCONFIGURE-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
  487. (DEFINE (XEVENT-XCONFIGURE-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
  488. (DEFINE (XEVENT-XCONFIGURE-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
  489. (DEFINE (XEVENT-XCONFIGURE-SEND_EVENT! X Y)
  490.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  491. (DEFINE (XEVENT-XCONFIGURE-DISPLAY X)
  492.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  493.          (CHK-XEVENTP X)
  494.          12))
  495. (DEFINE (XEVENT-XCONFIGURE-DISPLAY! X Y)
  496.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  497.          (CHK-XEVENTP X)
  498.          12
  499.          Y))
  500. (DEFINE (XEVENT-XCONFIGURE-EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 16))
  501. (DEFINE (XEVENT-XCONFIGURE-EVENT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
  502. (DEFINE (XEVENT-XCONFIGURE-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 20))
  503. (DEFINE (XEVENT-XCONFIGURE-WINDOW! X Y)
  504.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
  505. (DEFINE (XEVENT-XCONFIGURE-X X) (MREF-INTEGER (CHK-XEVENTP X) 24))
  506. (DEFINE (XEVENT-XCONFIGURE-X! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
  507. (DEFINE (XEVENT-XCONFIGURE-Y X) (MREF-INTEGER (CHK-XEVENTP X) 28))
  508. (DEFINE (XEVENT-XCONFIGURE-Y! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
  509. (DEFINE (XEVENT-XCONFIGURE-WIDTH X) (MREF-INTEGER (CHK-XEVENTP X) 32))
  510. (DEFINE (XEVENT-XCONFIGURE-WIDTH! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 32 Y))
  511. (DEFINE (XEVENT-XCONFIGURE-HEIGHT X) (MREF-INTEGER (CHK-XEVENTP X) 36))
  512. (DEFINE (XEVENT-XCONFIGURE-HEIGHT! X Y)
  513.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 36 Y))
  514. (DEFINE (XEVENT-XCONFIGURE-BORDER_WIDTH X) (MREF-INTEGER (CHK-XEVENTP X) 40))
  515. (DEFINE (XEVENT-XCONFIGURE-BORDER_WIDTH! X Y)
  516.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 40 Y))
  517. (DEFINE (XEVENT-XCONFIGURE-ABOVE X) (MREF-INTEGER (CHK-XEVENTP X) 44))
  518. (DEFINE (XEVENT-XCONFIGURE-ABOVE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 44 Y))
  519. (DEFINE (XEVENT-XCONFIGURE-OVERRIDE_REDIRECT X)
  520.         (MREF-INTEGER (CHK-XEVENTP X) 48))
  521. (DEFINE (XEVENT-XCONFIGURE-OVERRIDE_REDIRECT! X Y)
  522.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 48 Y))
  523. (DEFINE (XEVENT-XGRAVITY-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  524. (DEFINE (XEVENT-XGRAVITY-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  525. (DEFINE (XEVENT-XGRAVITY-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
  526. (DEFINE (XEVENT-XGRAVITY-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
  527. (DEFINE (XEVENT-XGRAVITY-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
  528. (DEFINE (XEVENT-XGRAVITY-SEND_EVENT! X Y)
  529.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  530. (DEFINE (XEVENT-XGRAVITY-DISPLAY X)
  531.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  532.          (CHK-XEVENTP X)
  533.          12))
  534. (DEFINE (XEVENT-XGRAVITY-DISPLAY! X Y)
  535.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  536.          (CHK-XEVENTP X)
  537.          12
  538.          Y))
  539. (DEFINE (XEVENT-XGRAVITY-EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 16))
  540. (DEFINE (XEVENT-XGRAVITY-EVENT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
  541. (DEFINE (XEVENT-XGRAVITY-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 20))
  542. (DEFINE (XEVENT-XGRAVITY-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
  543. (DEFINE (XEVENT-XGRAVITY-X X) (MREF-INTEGER (CHK-XEVENTP X) 24))
  544. (DEFINE (XEVENT-XGRAVITY-X! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
  545. (DEFINE (XEVENT-XGRAVITY-Y X) (MREF-INTEGER (CHK-XEVENTP X) 28))
  546. (DEFINE (XEVENT-XGRAVITY-Y! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
  547. (DEFINE (XEVENT-XRESIZEREQUEST-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  548. (DEFINE (XEVENT-XRESIZEREQUEST-TYPE! X Y)
  549.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  550. (DEFINE (XEVENT-XRESIZEREQUEST-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
  551. (DEFINE (XEVENT-XRESIZEREQUEST-SERIAL! X Y)
  552.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
  553. (DEFINE (XEVENT-XRESIZEREQUEST-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
  554. (DEFINE (XEVENT-XRESIZEREQUEST-SEND_EVENT! X Y)
  555.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  556. (DEFINE (XEVENT-XRESIZEREQUEST-DISPLAY X)
  557.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  558.          (CHK-XEVENTP X)
  559.          12))
  560. (DEFINE (XEVENT-XRESIZEREQUEST-DISPLAY! X Y)
  561.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  562.          (CHK-XEVENTP X)
  563.          12
  564.          Y))
  565. (DEFINE (XEVENT-XRESIZEREQUEST-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 16))
  566. (DEFINE (XEVENT-XRESIZEREQUEST-WINDOW! X Y)
  567.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
  568. (DEFINE (XEVENT-XRESIZEREQUEST-WIDTH X) (MREF-INTEGER (CHK-XEVENTP X) 20))
  569. (DEFINE (XEVENT-XRESIZEREQUEST-WIDTH! X Y)
  570.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
  571. (DEFINE (XEVENT-XRESIZEREQUEST-HEIGHT X) (MREF-INTEGER (CHK-XEVENTP X) 24))
  572. (DEFINE (XEVENT-XRESIZEREQUEST-HEIGHT! X Y)
  573.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
  574. (DEFINE (XEVENT-XCONFIGUREREQUEST-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  575. (DEFINE (XEVENT-XCONFIGUREREQUEST-TYPE! X Y)
  576.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  577. (DEFINE (XEVENT-XCONFIGUREREQUEST-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
  578. (DEFINE (XEVENT-XCONFIGUREREQUEST-SERIAL! X Y)
  579.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
  580. (DEFINE (XEVENT-XCONFIGUREREQUEST-SEND_EVENT X)
  581.         (MREF-INTEGER (CHK-XEVENTP X) 8))
  582. (DEFINE (XEVENT-XCONFIGUREREQUEST-SEND_EVENT! X Y)
  583.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  584. (DEFINE (XEVENT-XCONFIGUREREQUEST-DISPLAY X)
  585.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  586.          (CHK-XEVENTP X)
  587.          12))
  588. (DEFINE (XEVENT-XCONFIGUREREQUEST-DISPLAY! X Y)
  589.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  590.          (CHK-XEVENTP X)
  591.          12
  592.          Y))
  593. (DEFINE (XEVENT-XCONFIGUREREQUEST-PARENT X) (MREF-INTEGER (CHK-XEVENTP X) 16))
  594. (DEFINE (XEVENT-XCONFIGUREREQUEST-PARENT! X Y)
  595.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
  596. (DEFINE (XEVENT-XCONFIGUREREQUEST-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 20))
  597. (DEFINE (XEVENT-XCONFIGUREREQUEST-WINDOW! X Y)
  598.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
  599. (DEFINE (XEVENT-XCONFIGUREREQUEST-X X) (MREF-INTEGER (CHK-XEVENTP X) 24))
  600. (DEFINE (XEVENT-XCONFIGUREREQUEST-X! X Y)
  601.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
  602. (DEFINE (XEVENT-XCONFIGUREREQUEST-Y X) (MREF-INTEGER (CHK-XEVENTP X) 28))
  603. (DEFINE (XEVENT-XCONFIGUREREQUEST-Y! X Y)
  604.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
  605. (DEFINE (XEVENT-XCONFIGUREREQUEST-WIDTH X) (MREF-INTEGER (CHK-XEVENTP X) 32))
  606. (DEFINE (XEVENT-XCONFIGUREREQUEST-WIDTH! X Y)
  607.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 32 Y))
  608. (DEFINE (XEVENT-XCONFIGUREREQUEST-HEIGHT X) (MREF-INTEGER (CHK-XEVENTP X) 36))
  609. (DEFINE (XEVENT-XCONFIGUREREQUEST-HEIGHT! X Y)
  610.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 36 Y))
  611. (DEFINE (XEVENT-XCONFIGUREREQUEST-BORDER_WIDTH X)
  612.         (MREF-INTEGER (CHK-XEVENTP X) 40))
  613. (DEFINE (XEVENT-XCONFIGUREREQUEST-BORDER_WIDTH! X Y)
  614.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 40 Y))
  615. (DEFINE (XEVENT-XCONFIGUREREQUEST-ABOVE X) (MREF-INTEGER (CHK-XEVENTP X) 44))
  616. (DEFINE (XEVENT-XCONFIGUREREQUEST-ABOVE! X Y)
  617.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 44 Y))
  618. (DEFINE (XEVENT-XCONFIGUREREQUEST-DETAIL X) (MREF-INTEGER (CHK-XEVENTP X) 48))
  619. (DEFINE (XEVENT-XCONFIGUREREQUEST-DETAIL! X Y)
  620.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 48 Y))
  621. (DEFINE (XEVENT-XCONFIGUREREQUEST-VALUE_MASK X)
  622.         (MREF-INTEGER (CHK-XEVENTP X) 52))
  623. (DEFINE (XEVENT-XCONFIGUREREQUEST-VALUE_MASK! X Y)
  624.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 52 Y))
  625. (DEFINE (XEVENT-XCIRCULATE-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  626. (DEFINE (XEVENT-XCIRCULATE-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  627. (DEFINE (XEVENT-XCIRCULATE-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
  628. (DEFINE (XEVENT-XCIRCULATE-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
  629. (DEFINE (XEVENT-XCIRCULATE-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
  630. (DEFINE (XEVENT-XCIRCULATE-SEND_EVENT! X Y)
  631.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  632. (DEFINE (XEVENT-XCIRCULATE-DISPLAY X)
  633.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  634.          (CHK-XEVENTP X)
  635.          12))
  636. (DEFINE (XEVENT-XCIRCULATE-DISPLAY! X Y)
  637.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  638.          (CHK-XEVENTP X)
  639.          12
  640.          Y))
  641. (DEFINE (XEVENT-XCIRCULATE-EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 16))
  642. (DEFINE (XEVENT-XCIRCULATE-EVENT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
  643. (DEFINE (XEVENT-XCIRCULATE-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 20))
  644. (DEFINE (XEVENT-XCIRCULATE-WINDOW! X Y)
  645.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
  646. (DEFINE (XEVENT-XCIRCULATE-PLACE X) (MREF-INTEGER (CHK-XEVENTP X) 24))
  647. (DEFINE (XEVENT-XCIRCULATE-PLACE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
  648. (DEFINE (XEVENT-XCIRCULATEREQUEST-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  649. (DEFINE (XEVENT-XCIRCULATEREQUEST-TYPE! X Y)
  650.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  651. (DEFINE (XEVENT-XCIRCULATEREQUEST-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
  652. (DEFINE (XEVENT-XCIRCULATEREQUEST-SERIAL! X Y)
  653.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
  654. (DEFINE (XEVENT-XCIRCULATEREQUEST-SEND_EVENT X)
  655.         (MREF-INTEGER (CHK-XEVENTP X) 8))
  656. (DEFINE (XEVENT-XCIRCULATEREQUEST-SEND_EVENT! X Y)
  657.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  658. (DEFINE (XEVENT-XCIRCULATEREQUEST-DISPLAY X)
  659.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  660.          (CHK-XEVENTP X)
  661.          12))
  662. (DEFINE (XEVENT-XCIRCULATEREQUEST-DISPLAY! X Y)
  663.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  664.          (CHK-XEVENTP X)
  665.          12
  666.          Y))
  667. (DEFINE (XEVENT-XCIRCULATEREQUEST-PARENT X) (MREF-INTEGER (CHK-XEVENTP X) 16))
  668. (DEFINE (XEVENT-XCIRCULATEREQUEST-PARENT! X Y)
  669.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
  670. (DEFINE (XEVENT-XCIRCULATEREQUEST-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 20))
  671. (DEFINE (XEVENT-XCIRCULATEREQUEST-WINDOW! X Y)
  672.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
  673. (DEFINE (XEVENT-XCIRCULATEREQUEST-PLACE X) (MREF-INTEGER (CHK-XEVENTP X) 24))
  674. (DEFINE (XEVENT-XCIRCULATEREQUEST-PLACE! X Y)
  675.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
  676. (DEFINE (XEVENT-XPROPERTY-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  677. (DEFINE (XEVENT-XPROPERTY-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  678. (DEFINE (XEVENT-XPROPERTY-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
  679. (DEFINE (XEVENT-XPROPERTY-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
  680. (DEFINE (XEVENT-XPROPERTY-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
  681. (DEFINE (XEVENT-XPROPERTY-SEND_EVENT! X Y)
  682.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  683. (DEFINE (XEVENT-XPROPERTY-DISPLAY X)
  684.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  685.          (CHK-XEVENTP X)
  686.          12))
  687. (DEFINE (XEVENT-XPROPERTY-DISPLAY! X Y)
  688.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  689.          (CHK-XEVENTP X)
  690.          12
  691.          Y))
  692. (DEFINE (XEVENT-XPROPERTY-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 16))
  693. (DEFINE (XEVENT-XPROPERTY-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
  694. (DEFINE (XEVENT-XPROPERTY-ATOM X) (MREF-INTEGER (CHK-XEVENTP X) 20))
  695. (DEFINE (XEVENT-XPROPERTY-ATOM! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
  696. (DEFINE (XEVENT-XPROPERTY-TIME X) (MREF-INTEGER (CHK-XEVENTP X) 24))
  697. (DEFINE (XEVENT-XPROPERTY-TIME! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
  698. (DEFINE (XEVENT-XPROPERTY-STATE X) (MREF-INTEGER (CHK-XEVENTP X) 28))
  699. (DEFINE (XEVENT-XPROPERTY-STATE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
  700. (DEFINE (XEVENT-XSELECTIONCLEAR-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  701. (DEFINE (XEVENT-XSELECTIONCLEAR-TYPE! X Y)
  702.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  703. (DEFINE (XEVENT-XSELECTIONCLEAR-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
  704. (DEFINE (XEVENT-XSELECTIONCLEAR-SERIAL! X Y)
  705.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
  706. (DEFINE (XEVENT-XSELECTIONCLEAR-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
  707. (DEFINE (XEVENT-XSELECTIONCLEAR-SEND_EVENT! X Y)
  708.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  709. (DEFINE (XEVENT-XSELECTIONCLEAR-DISPLAY X)
  710.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  711.          (CHK-XEVENTP X)
  712.          12))
  713. (DEFINE (XEVENT-XSELECTIONCLEAR-DISPLAY! X Y)
  714.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  715.          (CHK-XEVENTP X)
  716.          12
  717.          Y))
  718. (DEFINE (XEVENT-XSELECTIONCLEAR-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 16))
  719. (DEFINE (XEVENT-XSELECTIONCLEAR-WINDOW! X Y)
  720.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
  721. (DEFINE (XEVENT-XSELECTIONCLEAR-SELECTION X) (MREF-INTEGER (CHK-XEVENTP X) 20))
  722. (DEFINE (XEVENT-XSELECTIONCLEAR-SELECTION! X Y)
  723.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
  724. (DEFINE (XEVENT-XSELECTIONCLEAR-TIME X) (MREF-INTEGER (CHK-XEVENTP X) 24))
  725. (DEFINE (XEVENT-XSELECTIONCLEAR-TIME! X Y)
  726.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
  727. (DEFINE (XEVENT-XSELECTIONREQUEST-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  728. (DEFINE (XEVENT-XSELECTIONREQUEST-TYPE! X Y)
  729.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  730. (DEFINE (XEVENT-XSELECTIONREQUEST-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
  731. (DEFINE (XEVENT-XSELECTIONREQUEST-SERIAL! X Y)
  732.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
  733. (DEFINE (XEVENT-XSELECTIONREQUEST-SEND_EVENT X)
  734.         (MREF-INTEGER (CHK-XEVENTP X) 8))
  735. (DEFINE (XEVENT-XSELECTIONREQUEST-SEND_EVENT! X Y)
  736.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  737. (DEFINE (XEVENT-XSELECTIONREQUEST-DISPLAY X)
  738.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  739.          (CHK-XEVENTP X)
  740.          12))
  741. (DEFINE (XEVENT-XSELECTIONREQUEST-DISPLAY! X Y)
  742.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  743.          (CHK-XEVENTP X)
  744.          12
  745.          Y))
  746. (DEFINE (XEVENT-XSELECTIONREQUEST-OWNER X) (MREF-INTEGER (CHK-XEVENTP X) 16))
  747. (DEFINE (XEVENT-XSELECTIONREQUEST-OWNER! X Y)
  748.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
  749. (DEFINE (XEVENT-XSELECTIONREQUEST-REQUESTOR X)
  750.         (MREF-INTEGER (CHK-XEVENTP X) 20))
  751. (DEFINE (XEVENT-XSELECTIONREQUEST-REQUESTOR! X Y)
  752.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
  753. (DEFINE (XEVENT-XSELECTIONREQUEST-SELECTION X)
  754.         (MREF-INTEGER (CHK-XEVENTP X) 24))
  755. (DEFINE (XEVENT-XSELECTIONREQUEST-SELECTION! X Y)
  756.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
  757. (DEFINE (XEVENT-XSELECTIONREQUEST-TARGET X) (MREF-INTEGER (CHK-XEVENTP X) 28))
  758. (DEFINE (XEVENT-XSELECTIONREQUEST-TARGET! X Y)
  759.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
  760. (DEFINE (XEVENT-XSELECTIONREQUEST-PROPERTY X) (MREF-INTEGER (CHK-XEVENTP X) 32))
  761. (DEFINE (XEVENT-XSELECTIONREQUEST-PROPERTY! X Y)
  762.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 32 Y))
  763. (DEFINE (XEVENT-XSELECTIONREQUEST-TIME X) (MREF-INTEGER (CHK-XEVENTP X) 36))
  764. (DEFINE (XEVENT-XSELECTIONREQUEST-TIME! X Y)
  765.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 36 Y))
  766. (DEFINE (XEVENT-XSELECTION-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  767. (DEFINE (XEVENT-XSELECTION-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  768. (DEFINE (XEVENT-XSELECTION-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
  769. (DEFINE (XEVENT-XSELECTION-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
  770. (DEFINE (XEVENT-XSELECTION-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
  771. (DEFINE (XEVENT-XSELECTION-SEND_EVENT! X Y)
  772.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  773. (DEFINE (XEVENT-XSELECTION-DISPLAY X)
  774.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  775.          (CHK-XEVENTP X)
  776.          12))
  777. (DEFINE (XEVENT-XSELECTION-DISPLAY! X Y)
  778.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  779.          (CHK-XEVENTP X)
  780.          12
  781.          Y))
  782. (DEFINE (XEVENT-XSELECTION-REQUESTOR X) (MREF-INTEGER (CHK-XEVENTP X) 16))
  783. (DEFINE (XEVENT-XSELECTION-REQUESTOR! X Y)
  784.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
  785. (DEFINE (XEVENT-XSELECTION-SELECTION X) (MREF-INTEGER (CHK-XEVENTP X) 20))
  786. (DEFINE (XEVENT-XSELECTION-SELECTION! X Y)
  787.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
  788. (DEFINE (XEVENT-XSELECTION-TARGET X) (MREF-INTEGER (CHK-XEVENTP X) 24))
  789. (DEFINE (XEVENT-XSELECTION-TARGET! X Y)
  790.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
  791. (DEFINE (XEVENT-XSELECTION-PROPERTY X) (MREF-INTEGER (CHK-XEVENTP X) 28))
  792. (DEFINE (XEVENT-XSELECTION-PROPERTY! X Y)
  793.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
  794. (DEFINE (XEVENT-XSELECTION-TIME X) (MREF-INTEGER (CHK-XEVENTP X) 32))
  795. (DEFINE (XEVENT-XSELECTION-TIME! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 32 Y))
  796. (DEFINE (XEVENT-XCOLORMAP-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  797. (DEFINE (XEVENT-XCOLORMAP-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  798. (DEFINE (XEVENT-XCOLORMAP-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
  799. (DEFINE (XEVENT-XCOLORMAP-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
  800. (DEFINE (XEVENT-XCOLORMAP-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
  801. (DEFINE (XEVENT-XCOLORMAP-SEND_EVENT! X Y)
  802.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  803. (DEFINE (XEVENT-XCOLORMAP-DISPLAY X)
  804.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  805.          (CHK-XEVENTP X)
  806.          12))
  807. (DEFINE (XEVENT-XCOLORMAP-DISPLAY! X Y)
  808.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  809.          (CHK-XEVENTP X)
  810.          12
  811.          Y))
  812. (DEFINE (XEVENT-XCOLORMAP-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 16))
  813. (DEFINE (XEVENT-XCOLORMAP-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
  814. (DEFINE (XEVENT-XCOLORMAP-COLORMAP X) (MREF-INTEGER (CHK-XEVENTP X) 20))
  815. (DEFINE (XEVENT-XCOLORMAP-COLORMAP! X Y)
  816.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
  817. (DEFINE (XEVENT-XCOLORMAP-NEW X) (MREF-INTEGER (CHK-XEVENTP X) 24))
  818. (DEFINE (XEVENT-XCOLORMAP-NEW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
  819. (DEFINE (XEVENT-XCOLORMAP-STATE X) (MREF-INTEGER (CHK-XEVENTP X) 28))
  820. (DEFINE (XEVENT-XCOLORMAP-STATE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
  821. (DEFINE (XEVENT-XCLIENT-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  822. (DEFINE (XEVENT-XCLIENT-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  823. (DEFINE (XEVENT-XCLIENT-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
  824. (DEFINE (XEVENT-XCLIENT-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
  825. (DEFINE (XEVENT-XCLIENT-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
  826. (DEFINE (XEVENT-XCLIENT-SEND_EVENT! X Y)
  827.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  828. (DEFINE (XEVENT-XCLIENT-DISPLAY X)
  829.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  830.          (CHK-XEVENTP X)
  831.          12))
  832. (DEFINE (XEVENT-XCLIENT-DISPLAY! X Y)
  833.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  834.          (CHK-XEVENTP X)
  835.          12
  836.          Y))
  837. (DEFINE (XEVENT-XCLIENT-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 16))
  838. (DEFINE (XEVENT-XCLIENT-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
  839. (DEFINE (XEVENT-XCLIENT-MESSAGE_TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 20))
  840. (DEFINE (XEVENT-XCLIENT-MESSAGE_TYPE! X Y)
  841.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
  842. (DEFINE (XEVENT-XCLIENT-FORMAT X) (MREF-INTEGER (CHK-XEVENTP X) 24))
  843. (DEFINE (XEVENT-XCLIENT-FORMAT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
  844. (DEFINE (XEVENT-XCLIENT-DATA-B X I)
  845.         ((LAMBDA (X Y I) (MREF-8-U X (FX+ Y (FX* 1 I)))) (CHK-XEVENTP X) 28 I))
  846. (DEFINE (XEVENT-XCLIENT-DATA-B! X I Y)
  847.         ((LAMBDA (X Y I Z)
  848.                  (SET-MREF-8-U! X (FX+ Y (FX* 1 I)) ((LAMBDA (X) X) Z)))
  849.          (CHK-XEVENTP X)
  850.          28
  851.          I
  852.          Y))
  853. (DEFINE (XEVENT-XCLIENT-DATA-S X I)
  854.         ((LAMBDA (X Y I) (MREF-16-S X (FX+ Y (FX* 2 I)))) (CHK-XEVENTP X) 28 I))
  855. (DEFINE (XEVENT-XCLIENT-DATA-S! X I Y)
  856.         ((LAMBDA (X Y I Z)
  857.                  (SET-MREF-16-S! X (FX+ Y (FX* 2 I)) ((LAMBDA (X) X) Z)))
  858.          (CHK-XEVENTP X)
  859.          28
  860.          I
  861.          Y))
  862. (DEFINE (XEVENT-XCLIENT-DATA-L X I)
  863.         ((LAMBDA (X Y I) (MREF-INTEGER X (FX+ Y (FX* 4 I))))
  864.          (CHK-XEVENTP X)
  865.          28
  866.          I))
  867. (DEFINE (XEVENT-XCLIENT-DATA-L! X I Y)
  868.         ((LAMBDA (X Y I Z)
  869.                  (SET-MREF-INTEGER! X (FX+ Y (FX* 4 I)) ((LAMBDA (X) X) Z)))
  870.          (CHK-XEVENTP X)
  871.          28
  872.          I
  873.          Y))
  874. (DEFINE (XEVENT-XMAPPING-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  875. (DEFINE (XEVENT-XMAPPING-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  876. (DEFINE (XEVENT-XMAPPING-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
  877. (DEFINE (XEVENT-XMAPPING-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
  878. (DEFINE (XEVENT-XMAPPING-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
  879. (DEFINE (XEVENT-XMAPPING-SEND_EVENT! X Y)
  880.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  881. (DEFINE (XEVENT-XMAPPING-DISPLAY X)
  882.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  883.          (CHK-XEVENTP X)
  884.          12))
  885. (DEFINE (XEVENT-XMAPPING-DISPLAY! X Y)
  886.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  887.          (CHK-XEVENTP X)
  888.          12
  889.          Y))
  890. (DEFINE (XEVENT-XMAPPING-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 16))
  891. (DEFINE (XEVENT-XMAPPING-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
  892. (DEFINE (XEVENT-XMAPPING-REQUEST X) (MREF-INTEGER (CHK-XEVENTP X) 20))
  893. (DEFINE (XEVENT-XMAPPING-REQUEST! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
  894. (DEFINE (XEVENT-XMAPPING-FIRST_KEYCODE X) (MREF-INTEGER (CHK-XEVENTP X) 24))
  895. (DEFINE (XEVENT-XMAPPING-FIRST_KEYCODE! X Y)
  896.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
  897. (DEFINE (XEVENT-XMAPPING-COUNT X) (MREF-INTEGER (CHK-XEVENTP X) 28))
  898. (DEFINE (XEVENT-XMAPPING-COUNT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
  899. (DEFINE (XEVENT-XERROR-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  900. (DEFINE (XEVENT-XERROR-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  901. (DEFINE (XEVENT-XERROR-DISPLAY X)
  902.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  903.          (CHK-XEVENTP X)
  904.          4))
  905. (DEFINE (XEVENT-XERROR-DISPLAY! X Y)
  906.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  907.          (CHK-XEVENTP X)
  908.          4
  909.          Y))
  910. (DEFINE (XEVENT-XERROR-RESOURCEID X) (MREF-INTEGER (CHK-XEVENTP X) 8))
  911. (DEFINE (XEVENT-XERROR-RESOURCEID! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  912. (DEFINE (XEVENT-XERROR-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 12))
  913. (DEFINE (XEVENT-XERROR-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 12 Y))
  914. (DEFINE (XEVENT-XERROR-ERROR_CODE X) (MREF-8-U (CHK-XEVENTP X) 16))
  915. (DEFINE (XEVENT-XERROR-ERROR_CODE! X Y) (SET-MREF-8-U! (CHK-XEVENTP X) 16 Y))
  916. (DEFINE (XEVENT-XERROR-REQUEST_CODE X) (MREF-8-U (CHK-XEVENTP X) 17))
  917. (DEFINE (XEVENT-XERROR-REQUEST_CODE! X Y) (SET-MREF-8-U! (CHK-XEVENTP X) 17 Y))
  918. (DEFINE (XEVENT-XERROR-MINOR_CODE X) (MREF-8-U (CHK-XEVENTP X) 18))
  919. (DEFINE (XEVENT-XERROR-MINOR_CODE! X Y) (SET-MREF-8-U! (CHK-XEVENTP X) 18 Y))
  920. (DEFINE (XEVENT-XKEYMAP-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
  921. (DEFINE (XEVENT-XKEYMAP-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
  922. (DEFINE (XEVENT-XKEYMAP-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
  923. (DEFINE (XEVENT-XKEYMAP-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
  924. (DEFINE (XEVENT-XKEYMAP-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
  925. (DEFINE (XEVENT-XKEYMAP-SEND_EVENT! X Y)
  926.         (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
  927. (DEFINE (XEVENT-XKEYMAP-DISPLAY X)
  928.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  929.          (CHK-XEVENTP X)
  930.          12))
  931. (DEFINE (XEVENT-XKEYMAP-DISPLAY! X Y)
  932.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  933.          (CHK-XEVENTP X)
  934.          12
  935.          Y))
  936. (DEFINE (XEVENT-XKEYMAP-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 16))
  937. (DEFINE (XEVENT-XKEYMAP-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
  938. (DEFINE (XEVENT-XKEYMAP-KEY_VECTOR X I)
  939.         ((LAMBDA (X Y I) (MREF-8-U X (FX+ Y (FX* 1 I)))) (CHK-XEVENTP X) 20 I))
  940. (DEFINE (XEVENT-XKEYMAP-KEY_VECTOR! X I Y)
  941.         ((LAMBDA (X Y I Z)
  942.                  (SET-MREF-8-U! X (FX+ Y (FX* 1 I)) ((LAMBDA (X) X) Z)))
  943.          (CHK-XEVENTP X)
  944.          20
  945.          I
  946.          Y))
  947. (DEFINE (XEVENT-PAD X I)
  948.         ((LAMBDA (X Y I) (MREF-INTEGER X (FX+ Y (FX* 4 I))))
  949.          (CHK-XEVENTP X)
  950.          0
  951.          I))
  952. (DEFINE (XEVENT-PAD! X I Y)
  953.         ((LAMBDA (X Y I Z)
  954.                  (SET-MREF-INTEGER! X (FX+ Y (FX* 4 I)) ((LAMBDA (X) X) Z)))
  955.          (CHK-XEVENTP X)
  956.          0
  957.          I
  958.          Y))
  959.